home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / tools / amiga / 12004000 / tmapdemo.lha / joystick.asm < prev    next >
Encoding:
Assembly Source File  |  1993-02-18  |  725 b   |  48 lines
  1. ; $$TABS=8
  2.     include    'demo.i'
  3.     include    'hardware/custom.i'
  4.     
  5.     xref    _custom
  6.     xdef    read_joystick
  7.  
  8. read_joystick::
  9. ; joystick - get current state of switches in variables
  10. ; uses d0,d1
  11.     move.w    _custom+joy1dat,d0
  12.     btst    #1,d0
  13.     sne    stick_right(a6)
  14.     btst    #9,d0
  15.     sne    stick_left(a6)
  16.     move    d0,d1
  17.     add    d0,d0
  18.     eor    d1,d0
  19.     btst    #1,d0
  20.     sne    stick_down(a6)
  21.     btst    #9,d0
  22.     sne    stick_up(a6)
  23.     tst.b    $bfe0ff        ; fire button
  24.     spl    stick_fire(a6)
  25.     tst.b    stick_fire(a6)
  26.     bmi.s    j_1
  27.     tst.b    old_stick_fire(a6)
  28.     smi    stick_click(a6)
  29. j_1:    move.b    stick_fire(a6),old_stick_fire(a6)
  30.     rts
  31.  
  32.     section    __MERGED,data
  33.  
  34. stick_up::
  35.     ds.b    1
  36. stick_down::
  37.     ds.b    1
  38. stick_left::
  39.     ds.b    1
  40. stick_right::
  41.     ds.b    1
  42. stick_fire::
  43.     ds.b    1
  44. stick_click::
  45.     ds.b    1
  46. old_stick_fire::
  47.     ds.b    1
  48.